home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / C and C++ / System / Chassis 6.0 ƒ / WriteFromTE.c < prev   
Encoding:
C/C++ Source or Header  |  1993-09-22  |  1.2 KB  |  34 lines  |  [TEXT/KAHL]
  1. /************************************************************************************/
  2. /*    WriteFromTE                                                                        */
  3. /*                                                                                    */
  4. /*    Writes to open file from existing TextEdit record                                */
  5. /************************************************************************************/
  6.  
  7. #include "MyHeaders.h"
  8.  
  9. long WriteFromTE(short pathRefNum, TEHandle hTE)
  10. {
  11.     OSErr    writeErr;                            /* return from I/O routines            */
  12.     long    bytesWrite = 0;                        /* total of bytes returned            */
  13.     Ptr        beginP;                                /* ptr to begin of temp I/O area    */
  14.  
  15.     CursorSelect (NIL, NIL, watchCursor);        /* set watch cursor                    */
  16.     
  17.     writeErr = SetFPos (pathRefNum, fsFromStart, 0);    /* positn file ptr to begin    */
  18.     
  19.     bytesWrite = (**hTE).teLength;                /* number of bytes to write            */
  20.     beginP = *(**hTE).hText;                    /* pointer to text                    */
  21.  
  22.     writeErr = FSWrite (pathRefNum, &bytesWrite, beginP);    /* write to the file    */
  23.     if (writeErr == noErr)
  24.         SetEOF (pathRefNum, bytesWrite);                    /* set new EOF            */
  25.     else
  26.         {
  27.         ParamText (workReply.fName,NIL,NIL,NIL);            /* set text as file name    */
  28.         PlaceAlert (140);                                /* position the alert        */
  29.         StopAlert (140, NIL);                            /* show the alert            */
  30.         }
  31.     
  32.     return bytesWrite;                            /* return total no of bytes            */
  33. }
  34.